unit Td_RakeOff_List;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDataListForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter,
  cxDataStorage, DB, cxDBData, Menus, DBActns,
  StdActns, ActnList, ImgList, cxCheckBox, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, cxLabel, ExtCtrls,
  MisString, cxTextEdit, cxMaskEdit, cxDropDownEdit, StdCtrls,
  cxGridCustomPopupMenu, dxSkinsForm,
  cxNavigator,
  System.Actions, cxCustomData, cxFilter, cxData, cxGridPopupMenu, MemDS,
  DBAccess, Uni, System.ImageList, cxGridLevel, cxButtons;

type
  TfrmTd_RakeOff_List = class(TfrmBaseDataListForm)
    MainDataGridDBTableViewcode: TcxGridDBColumn;
    MainDataGridDBTableViewname: TcxGridDBColumn;
    MainDataGridDBTableViewexplan: TcxGridDBColumn;
    MainDataGridDBTableViewexpensecost: TcxGridDBColumn;
    MainDataGridDBTableViewsalecost: TcxGridDBColumn;
    MainDataSetUid: TIntegerField;
    MainDataSetUcode: TStringField;
    MainDataSetUname: TStringField;
    MainDataSetUexplan: TStringField;
    MainDataSetUexpensecost: TBooleanField;
    MainDataSetUsalecost: TBooleanField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected    
    function AppendRecord: Boolean; override;
    function EditRecord: Boolean; override;    
  public
    { Public declarations }
  end;

var
  frmTd_RakeOff_List: TfrmTd_RakeOff_List;

implementation

uses Td_RakeOff_Edit;

{$R *.dfm}

function TfrmTd_RakeOff_List.AppendRecord: Boolean;
begin
  ShowEditForm(frmTd_RakeOff_Edit, TfrmTd_RakeOff_Edit, et_New);
  Result := True;
end;

function TfrmTd_RakeOff_List.EditRecord: Boolean;
begin
  ShowEditForm(frmTd_RakeOff_Edit, TfrmTd_RakeOff_Edit, et_Modify);
  Result := True;
end;

procedure TfrmTd_RakeOff_List.FormCreate(Sender: TObject);
begin
  FKeyField := 'id';
  FCodeField := 'code';
  FTableName := 'td_rakeoff';
  inherited;

end;

end.

